home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 March / 1987-03.d64 / sequencer demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  447b  |  15 lines
  1. 5 poke53281,0:rem color 0,1 on the +4/16 for black screen
  2. 10 printchr$(14):rem lower case
  3. 20 ifa=0thena=1:load"text seq.obj",8,1
  4. 30 print"[147][159]","the text sequencer"
  5. 40 print,"choose an option:"
  6. 50 print"1 your filename 1."
  7. 60 print"2 your filename 2."
  8. 70 geta$:ifa$=""goto70
  9. 80 if a$="1"then print"[147]":open2,8,2,"0:filename 1,s,r":sys828:gosub100:goto30
  10. 90 if a$="2"then print"[147]":open2,8,2,"0:filename 2,s,r":sys828:gosub100:goto30
  11. 100 close2:ifa$=chr$(13) then return
  12. 110 print,"press return for [205]enu"
  13. 120 geta$:ifa$=chr$(13)then return
  14. 130 goto120
  15.